home *** CD-ROM | disk | FTP | other *** search
/ Armageddon - Interactive Preview / Interactive Preview: Armageddon.iso / pc / control.dxr / Scripts & Behaviors_15_aMonitorObj.ls < prev    next >
Encoding:
Text File  |  1998-05-19  |  2.3 KB  |  86 lines
  1. property pLeftMain, pCenterMain, pRightMain
  2. global gBioValue, gScrollerObj
  3.  
  4. on new me, leftMain, centerMain, rightMain
  5.   set pLeftMain to leftMain
  6.   set pCenterMain to centerMain
  7.   set pRightMain to rightMain
  8.   return me
  9. end
  10.  
  11. on ResetMonitors me
  12.   set gBioValue to 0
  13.   set the visible of sprite 75 to 0
  14.   set the visible of sprite 76 to 0
  15.   hideAll(gScrollerObj)
  16.   set the visible of sprite pCenterMain to 0
  17.   set the loc of sprite pCenterMain to point(320, 230)
  18.   updateStage()
  19.   set the member of sprite pCenterMain to "center main"
  20.   set the blend of sprite pCenterMain to 100
  21.   set the foreColor of sprite pCenterMain to 255
  22.   set the ink of sprite pCenterMain to 0
  23.   updateStage()
  24. end
  25.  
  26. on setLeft me, thisMember
  27.   set the member of sprite pLeftMain to thisMember
  28.   updateStage()
  29. end
  30.  
  31. on setCenter me, thisMember
  32.   set the member of sprite pCenterMain to thisMember
  33.   set the visible of sprite pCenterMain to 1
  34.   updateStage()
  35. end
  36.  
  37. on setRight me, thisMember
  38.   set the member of sprite pRightMain to thisMember
  39.   updateStage()
  40. end
  41.  
  42. on checkMovie
  43.   if the movieRate of sprite pLeftMain = 0 then
  44.     set nextMember to the memberNum of sprite pLeftMain + 1
  45.     set the member of sprite pLeftMain to member nextMember of castLib "QuickTime"
  46.     set gBioValue to 0
  47.   end if
  48. end
  49.  
  50. on resetMovie me
  51.   set the movieTime of sprite pCenterMain to 0
  52.   set the movieRate of sprite pCenterMain to 1
  53. end
  54.  
  55. on resetCenter1 me
  56.   if the movieRate of sprite pCenterMain = 0 then
  57.     set the member of sprite pCenterMain to "Impact Loop"
  58.     set gBioValue to 0
  59.   end if
  60. end
  61.  
  62. on resetCenter2 me
  63.   if the movieRate of sprite pCenterMain = 0 then
  64.     set thisMember to the member of sprite pCenterMain
  65.     set thisName to the name of member thisMember
  66.     case thisName of
  67.       "MBAY":
  68.         set tempLeft to "MB_STAT"
  69.         set tempCenter to "BAY BIO"
  70.         set tempNum to 244
  71.       "BRUCK":
  72.         set tempLeft to "JB_STAT"
  73.         set tempCenter to "BRUCK BIO"
  74.         set tempNum to 148
  75.     end case
  76.     set gBioValue to 0
  77.     setLeft(me, tempLeft)
  78.     set the member of sprite pCenterMain to tempCenter
  79.     set the scrollTop of member tempCenter to 0
  80.     set the loc of sprite pCenterMain to point(180, 140)
  81.     set the ink of sprite pCenterMain to 36
  82.     showAll(gScrollerObj, tempNum)
  83.     updateStage()
  84.   end if
  85. end
  86.